<!--#include file="lib/utf-8.asp"-->
<!--#include file="lib/connopen.asp"-->
<!--#include file="lib/asp-json-lib.asp"-->
<!--#include file="lib/asp-common-lib.asp"-->
<%
Response.ContentType = "application/json"
dim i,sql,chks,aChk,aVal
chks=request("chks")
aChk=split(chks,",")
sql=""
'先清除由于conn.open而产生的警告以 Errors 集合中的 Error 对象的方式出现，但并不中止程序的执行
conn.errors.clear
'事务开始
conn.BeginTrans
' sql="update crm set forget=1 where result=0 and id in ("&sVal&")"
' response.write sql
' response.end
for i=0 to ubound(aChk)
	aVal=split(aChk(i),"|")
	' if CheckPostFlag(session("aaPostflag"),4,4) then
		' 只能对在初始岗位的单子进行忽略
		if aVal(2)=1 then
			sql="update crm set forget=1 where empe=0 and id="&aVal(0)
			call	ExecuteCommand(sql,false)
		end if
	' end if
next
'判断没有任何sql执行过，就清楚错误信息，因为在conn.open执行后，conn.Errors.Count就等于1，下面一段就是测试代码
'if sql="" then conn.errors.clear
' if conn.errors.count>0 then
  ' response.write "数据库连接对象有错了，看看是哪一步出的错："&"<br>"
  ' for i =0 to conn.errors.count-1
    ' response.write conn.errors.item(i)&"<br>"
  ' next
' else
  ' response.write "很完美!"
' end if
dim json
set json=jsObject()
if conn.Errors.Count=0 then
	'如果没有conn错误，则执行事务提交
	conn.CommitTrans
	if sql="" then 
		json("bStatus")=false
		json("sInfo")="没有进行任何操作"
	else
		json("bStatus")=true
	end if
else
	'否则回滚
	conn.RollbackTrans
	json("bStatus")=false
	json("sInfo")="数据库错误"
end if
json.Flush
%>
<!--#include file="lib/connclose.asp"-->

